|
AutoCAD VBA : Autocad vba layer nach namen wechseln
dero2k am 06.08.2013 um 11:25 Uhr (1)
Hialso ich habe mir aus inventor autocad dwgs weggeschrieben.nun stimmen leider die Layer nicht. ist es möglich per vba (oder was auch immer man bei acad verwendet) alle layer automatisch zu ändern ?also änder alle layer mit dem namen "Sichtbare Kanten/DIN)" zu layer "AM_8" von hand kann ich dies ja machen wenn ich eine linie auswähle und dann einen neuen layer wähle, allerdings ist dies zimlich aufwendig da es sich schon um ein paar zeichnungen handelt.wäre sehr nett wenn dazu jemand beispielcode hätte da ...
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad vba layer nach namen wechseln
dero2k am 06.08.2013 um 11:34 Uhr (1)
nunja er soll ja nicht einfach nur umbenannt werden sondern wirklich der layer gewechselt werden.also das er aus einer weißen 0.5er linie z.b. eine rote 0.25er linie macht so wie das in dem layer vorgegeben ist.also nach dem motto select all layers "layer1" change to "layer2"allerdings weis ich nicht wie ich da überhaupt vorgehe da das mein erstes acad macro werden soll
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad vba layer nach namen wechseln
dero2k am 06.08.2013 um 12:13 Uhr (1)
ok habe jetzt etwas herumprobiert und die lösung glaube ich auch schon gefunden.ka ob dies der saubere weg ist und ob das ganze auch funktioniert wenn ich mehr als einen layer wechseln möchte aber bei einem funzt es schonmal und wollte euch den code nicht vorenthalten.Code:Sub sublayer()a = ThisDrawing.ModelSpace.CountFor i = a - 1 To 0 Step -1 If ThisDrawing.ModelSpace.Item(i).Layer = "AM_8" Then ThisDrawing.ModelSpace.Item(i).Layer = "AM_7" End IfNext iEnd Sub
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad vba layer nach namen wechseln
dero2k am 06.08.2013 um 12:56 Uhr (1)
danke für die antwort funktioniert soweit supper allerdings ist bei den objekteigenschaften der bemaßung zb. die farbe auf Weiß genau wie Bem-linienfarbe und Hilfslinienfarbeist es irgendwie möglich das er diese auch gerade auf "von layer" setzt ?
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Autocad vba layer nach namen wechseln
dero2k am 06.08.2013 um 13:01 Uhr (1)
ok sehe gerade ich muss garnicht die farben ändern sondern nur den "Bem-Stil" auf "AM_IDO$0" setzen
|
| In das Form AutoCAD VBA wechseln |
